home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 17
/
017.d81
/
jungle heat
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
5KB
|
137 lines
10 POKE 53281,7:POKE53280,9:PRINT"[147]","INSTRUCTIONS Y OR N"
15 GETA$:IFA$="Y"THEN515
20 IFA$<>"N"THEN15
25 SC=1024:C=55296:B=206:E=235:SP$=" "
27 J$="":H$=LEFT$(J$,5)
30 FORT=0TO119:POKESC+T,160:POKEC+T,14:NEXT
35 FORT=880TO1000:POKESC+T,160:POKEC+T,5:NEXT
40 FORT=759TO879STEP40:POKESC+T,116:POKEC+T,0:NEXT
45 FORV=1TO5:FORT=BTOE:POKESC+T,160:POKEC+T,5:NEXT:B=B+40:E=E+40:NEXT
50 PRINTLEFT$(J$,10)
55 FORT=1TO12:PRINT,"[149][182] [146] [146] [146] [146] [146] [161] [146] [146][182]":NEXT
60 FORU=1TO10:READX,Y:FORT=XTOX+YSTEP40:POKESC+T,32:NEXT:NEXT
65 DATA730,120,745,120,751,120,816,40,852,0,861,0,863,0
67 DATA851,0,814,40,827,40
70 FORT=1TO35:READA,B:POKESC+A,B:POKEC+A,5:NEXT
75 DATA206,32,207,32,208,233,214,223,215,233,220,223,221,233,366,32,368,95
80 DATA224,223,225,233,233,223,234,32,235,32,245,233,276,223,285,105,316
85 DATA95,286,233,326,105,327,233,367,105,315,223,355,95,354,223,395
90 DATA32,394,95,393,223,433,95,176,233,177,160,178
92 DATA160,179,223,189,233,190,223
95 PRINT"[154]Q-MAN"TAB(32)"[154]P-BODY"
100 FORK=1TO6:READH1(K),L1(K),H2(K),L2(K):NEXT
105 DATA25,30,18,209,33,135,25,30,42,62,31,165,50,60,37,162
110 DATA42,62,31,165,50,60,37,162
115 V=53248:POKEV,0:POKEV+2,0:POKEV+21,255:POKEV+1,190
117 POKEV+3,180:POKEV+27,3
120 FORS1=12288TO12542:READQ1:POKES1,Q1:NEXT
125 FORT=41TO46:POKEV+T,2:NEXT:POKEV+39,0:POKEV+40,14
130 GOSUB575:POKES+24,15:POKES,220:POKES+1,68:POKES+5,15:POKES+6,215
135 POKES+7,120:POKES+8,100:POKES+12,15:POKES+13,215
140 X=RND(-TI):R=1:RR=1:P=192:DP=1:X=1:Z=1:W=0:POKEV+16,128
145 FORT=2042TO2047:POKET,195:NEXT
150 POKEV+5,114:POKEV+7,104:POKEV+9,109:POKEV+11,114:POKEV+13,104
155 POKEV+15,109:POKEV+4,81:POKEV+6,125:POKEV+8,166:POKEV+10,202
160 POKEV+12,237:POKEV+14,15:FORD=1TO3:GOSUB230:GOSUB260:NEXT
165 PRINT"WATCH OUT FOR COCONUTS!"
170 PRINTJ$"[156]READY":FORT=1TO500:NEXT
175 PRINTJ$"[144] GO ":POKES+4,33:FORT=1TO500:NEXT
180 POKES+4,32:PRINTJ$SP$:TI$="000000":W=TI:POKE198,0
185 IFX>315THEN420
190 IFZ>315THEN425
195 GETA$
197 Q=TI:PRINTH$SP$H$Q-W+5
198 IFA$=""THEN195
200 IFA$="P"THENGOSUB255
205 IFA$="Q"THENGOSUB225
210 IFA$="O"THENGOSUB285
215 IFA$="W"THENGOSUB290
220 POKE198,0:GOTO185
225 Q=TI:PRINTH$SP$H$Q-W+5:IFQ-W<55THEN260
230 W=TI:FORU=1TO4:GOSUB490
235 IFP=192THENGOSUB410
240 IFP=193THENGOSUB415
245 POKE2040,P:P=P+DP:IFP<>193THENDP=-DP
250 X=X+2:NEXT:RETURN
255 Q=TI:PRINTH$SP$H$Q-W+5:IFQ-W<55THEN230
260 W=TI:FORU=1TO4:GOSUB505
265 IFP=192THENGOSUB410
270 IFP=193THENGOSUB415
275 POKE2041,P:P=P+DP:IFP<>193THENDP=-DP
280 Z=Z+2:NEXT:RETURN
285 X1=V:X2=X1+1:X3=190:X4=311:X5=253:X7=X:X8=1:GOTO295
290 X1=V+2:X2=X1+1:X3=180:X4=301:X5=254:X7=Z:X8=2
295 SX=V+4:SY=V+5:X6=PEEK(X1):IFPEEK(V+16)>128THENSY=V+15:SX=V+14:GOTO310
300 IFX6=<PEEK(SX)THEN310
305 SX=SX+2:SY=SY+2:GOTO300
310 FORT=1TO15:POKEV+30,0:IFPEEK(SY)=>215THENPOKEX2,X3:GOTO355
315 G=(PEEK(V+30)ANDX5):GG=GANDX8:IFG>3ANDGG<>0THEN360
320 POKESY,PEEK(SY)+4
325 IFR>7ORRR>7THEN350
330 AA=PEEK(197):IFAA=41ANDX3=180THENZ=Z+5:GOSUB500:R=R+1:NEXT
335 IFAA=62ANDX3=190THENX=X+5:GOSUB485:RR=RR+1:NEXT
340 IFAA=38ANDX3=180THENZ=Z-2:GOSUB500:NEXT:GOTO355
345 IFAA=9ANDX3=190THENX=X-2:GOSUB485:NEXT:GOTO355
350 POKESY,PEEK(SY)+4:NEXT
355 R=1:RR=1:RETURN
360 GOSUB410:FORT1=1TO18:POKESY,PEEK(SY)-1
365 POKEX2,PEEK(X2)+2:NEXT
370 IFPEEK(X2)>216THENPOKEX2,216
375 FORT1=1TO33:POKESY,PEEK(SY)+2:IFPEEK(SY)>225THENPOKESY,225
380 NEXT
385 IFX4=301THENFORT2=1TO3:GOSUB230:NEXT
390 IFX4=311THENFORT2=1TO3:GOSUB260:NEXT
395 IFR>1THENFORT5=1TOR:GOSUB505:Z=Z-6:NEXT
400 IFRR>1THENFORT5=1TORR:GOSUB490:X=X-5:NEXT
405 POKEX2,X3:R=1:RR=1:RETURN
410 POKES+4,129:POKES+4,128:RETURN
415 POKES+11,129:POKES+11,128:RETURN
420 TT$=TI$:GOSUB455:I=I+1:PRINT"";I:GOTO430
425 TT$=TI$:GOSUB455:M=M+1:PRINT"",,,"";M
430 PRINT""SPC(250),SPC(250),SPC(250),SPC(156)"TIME: ";RIGHT$(TT$,3)
435 PRINT""SPC(132)"PLAY AGAIN? Y OR N"
440 GETA$:IFA$="Y"THENPRINT""SPC(132)" ":GOTO130
445 IFA$<>"N"THEN440
450 POKE53281,11:POKE53248+21,0:GOTO63000
455 POKES+5,85:POKES+6,85:POKES+12,85:POKES+13,85:POKES+4,33:POKES+11,17
460 FORK=1TO6
465 POKES+1,H1(K):POKES,L1(K):POKES+8,H2(K):POKES+7,L2(K)
470 IFH1(K)=50THENFORT1=1TO200:NEXT
475 FORT2=1TO100:NEXT
480 NEXT:GOSUB575:RETURN
485 POKESY,PEEK(SY)+4
490 RX=INT(X/256):LX=X-RX*256
495 POKEV,LX:POKEV+16,PEEK(V+16)ORRX:RETURN
500 POKESY,PEEK(SY)+4
505 RZ=INT(Z/256):LZ=Z-RZ*256
510 POKEV+2,LZ:POKEV+16,PEEK(V+16)ORRZ*2:RETURN
515 PRINT:PRINT:PRINT:PRINT"'Q' MOVES THE BLACK SPRITE FORWARD."
520 PRINT"'W' MOVES HIM BACKWARD DURING A COCONUT"
525 PRINT" DROP. IT ALSO FIRES COCONUTS."
530 PRINT:PRINT"'P' MOVES THE BLUE SPRITE FORWARD."
535 PRINT"'O' MOVES HIM BACKWARD DURING A COCONUT"
540 PRINT" DROP. IT ALSO FIRES COCONUTS."
545 PRINT:PRINT"THERE IS A ONE-SECOND INTERVAL BETWEEN"
550 PRINT"SPRITE ADVANCES. DON'T PRESS TOO SOON--"
555 PRINT"THE JIFFY TIMER UPPER LEFT MUST READ"
557 PRINT"60 OR YOUR OPPONENT ADVANCES."
560 PRINT:PRINT"PRESS ANY KEY TO CONTINUE"
565 GETA$:IFA$=""THEN565
570 IFA$<>""THENPRINT"[147]":GOTO25
575 S=54272:FORT=STOS+24:POKET,0:NEXT:RETURN
580 DATA3,254,0,30,31,224,48,255,159,99,252,158,103,252,240,111,255,192,103,255
585 DATA0,99,252,0,51,240,0,27,88,0,28,255,128,48,239,248,33,225
587 DATA255,1,224,15,3,192,30,7,128,60,7,128,96,15,0,252,12,1,248
590 DATA31,128,0,31,128,0,0,1,255,0,15,207,224,28,255,152,51,249,159
595 DATA103,249,255,111,255,254,103,254,0,39,224,0,54,12,0,112,124
600 DATA0,192,126,0,0,126,0,0,94,0,0,94,0,0,95,0,0,223,0,0,223,0,0
605 DATA223,0,1,220,0,1,223,224,1,223,224,0,0,248,0,2,255,0,5,255,128
610 DATA9,255,224,19,255,240,27,255,240,27,255,254,27,255,255,63,254
615 DATA0,252,0,0,0,62,0,0,62,0,0,62,0,0,125,0,1,252,128,3,231,192,255
620 DATA195,192,255,131,192,224,3,0,192,3,240,0,3,240,0,0,0,0,0,0,0,0,0
625 DATA0,0,0,0,0,0,0,0,253,0,3,143,192,7,15,240,14,31,248,31,255,252
630 DATA111,255,251,56,255,134,15,0,120,7,255,240,3,255,224,0,255
635 DATA128,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
63000 REM RECONNECT TO L.S.
63010 LOAD"PAYLOAD CONNECT",8